home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / CHECKWAI.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-15  |  1.5 KB  |  31 lines
  1. (*----------------------------------------------------------------------*)
  2. (*     Check_Wait_String_Time --- Check if wait string time exhausted   *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Check_Wait_String_Time;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Check_Wait_String_Time                               *)
  10. (*                                                                      *)
  11. (*     Purpose:    Checks if wait string time is exhausted              *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Check_Wait_String_Time;                                       *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. BEGIN (* Check_Wait_String_Time *)
  20.  
  21.    IF ( TimeDiff( Script_Wait_Start , TimeOfDay ) > Script_Wait_Time ) THEN
  22.       BEGIN
  23.          Script_Wait_Save   := '';
  24.          Script_Wait_Found  := FALSE;
  25.          WaitString_Mode    := FALSE;
  26.          Really_Wait_String := FALSE;
  27.          IF ( Script_Wait_Failure > 0 ) THEN
  28.             Script_Buffer_Pos  := Script_Wait_Failure - 1;
  29.       END;
  30.  
  31. END   (* Check_Wait_String_Time *);